ISREDIT MACRO PROCESS                                                   00010010
    CONTROL NOFLUSH NOPROMPT NOLIST NOMSG                               00020010
/*  CONTROL MSG LIST CONLIST SYMLIST                                    00030010
/*  ISPEXEC CONTROL ERRORS RETURN                                       00040010
ISREDIT (CMEM) = MEMBER                                                 00050010
SET &CMEM  = &STR(&CMEM)                                                00060010
SET &CMEM  = &STR(P&SUBSTR(2:8,&CMEM)                                   00070010
FINDIT: +                                                               00080010
ISREDIT SAVE                                                            00090010
SUB 'J231SC.JCL.CNTL(&CMEM)'                                            00100012
EXIT CODE(0)                                                            00110010
